-module(master_supervisor).
-behaviour(supervisor).

-export([start/0,start_in_shell_for_testing/0,start_link/1,init/1]).

start() ->
	spawn(fun() ->
		supervisor:start_link({local,?MODULE},?MODULE,_ARG=[])
	      end).
start_in_shell_for_testing() ->
	{ok,Pid}=supervisor:start_link({local,?MODULE},?MODULE,_ARG=[]),
	unlink(Pid).

start_link(Args) ->
	supervisor:start_link({local,?MODULE},?MODULE,Args).

init([]) ->
	{ok,{{one_for_one,3,10},
	[{tag1,{master,start,[]},
		permanent,
		10000,
		worker,
		[master]}
		]}}.
